home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / browser / converttogif.browse next >
Text File  |  2004-08-03  |  1KB  |  50 lines
  1. /*
  2.  * ImageFX Browser Script
  3.  *
  4.  * All browser scripts are called as follows:
  5.  *
  6.  *    ScriptName.browse <numfiles> <filelist>
  7.  *
  8.  * Where:
  9.  *
  10.  *    <numfiles>        = Number of files selected (could be 0).
  11.  *    <filelist>        = File containing the list of files selected,
  12.  *                        one file per line, with full pathname.
  13.  *
  14.  * ConvertToGIF.browse:
  15.  *
  16.  *    Convert selected files to 256-color GIFs.
  17.  *
  18.  */
  19.  
  20. OPTIONS RESULTS
  21.  
  22. PARSE ARG numfiles filelist .
  23.  
  24. IF numfiles > 0 THEN DO
  25.  
  26.    IF OPEN(infile, filelist, 'Read') THEN DO
  27.  
  28.       SetRender Foreign
  29.       Render Colors 256
  30.       Render Dither 1 2 0
  31.  
  32.       DO WHILE ~EOF(infile)
  33.          curfile = READLN(infile)
  34.          IF curfile ~= "" THEN DO
  35.             LoadBuffer '"'curfile'"' FORCE
  36.             IF rc = 0 THEN DO
  37.                Render Go
  38.                SaveRenderedAs GIF '"'curfile'.GIF"'
  39.                Render Close
  40.                END
  41.             END
  42.          END
  43.  
  44.       CALL CLOSE(infile)
  45.       KillBuffer FORCE
  46.  
  47.    END
  48.  
  49. EXIT 0
  50.